home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / viewer / Visage39_9.LHA / Visage / Install Visage < prev    next >
Encoding:
Text File  |  1996-06-19  |  28.6 KB  |  1,141 lines
  1. ;
  2. ; $VER: Install_Visage 39.8 (27.5.96)
  3. ;
  4. ; Installer script for Visage.
  5. ;
  6.  
  7.  
  8. (set #german-lang       1)
  9. (set #english-lang      2)
  10. (set #english-lang-num  1)
  11. (set #spanish-lang      4)
  12. (set #french-lang       8)
  13. (set #italian-lang     16)
  14. (set #norwegian-lang   32)
  15. (set #russian-lang     64)
  16. (set #finnish-lang    128)
  17. (set #swedish-lang    256)
  18.  
  19. ; Get current language (no need for lots of silly icons! ;). However, this
  20. ; won't properly work for all versions of the Installer. Some doesn't
  21. ; understand the language "default". :/
  22.  
  23. (if (= (exists "Env:Language") 1)
  24.     ; GetEnv reports "String too long" if the variable doesn't exist! :(
  25.     ; Dunno if this is fixed in V43... But we need the check anyway.
  26.     (set @language (getenv "language"))
  27. )
  28.  
  29. ;**************************************************************************
  30. ;
  31. ; English strings
  32. ;
  33.  
  34.  
  35. (set #default-lang #english-lang)
  36.  
  37. (set #bad-kick
  38.     "You must have AmigaOS Release 3.0 or newer to use Visage."
  39. )
  40.  
  41. (set #welcome
  42.     (cat
  43.         "\n\n\nWelcome to the Visage installation utility.\n\n"
  44.         "This program lets you install Visage on your Amiga.\n\n\n"
  45.         "Visage © 1995-96  Magnus Holmgren."
  46.     )
  47. )
  48.  
  49. (set #install-parts "Please select the parts you wish to install")
  50.  
  51. (set #item-visage "Visage")
  52.  
  53. (set #item-visage-guide "Visage.guide")
  54.  
  55. (set #item-locale "Translations")
  56.  
  57. (set #item-codec "JPEG codec")
  58.  
  59. ; The following four strings are program names. Normally, these shouldn't
  60. ; be translated, though one could consider appending some locale-specific
  61. ; text after the names.
  62.  
  63. (set #item-getmodeid "GetModeID")
  64.  
  65. (set #item-kill "Kill")
  66.  
  67. (set #item-makelink "MakeLink")
  68.  
  69. (set #item-unpackilbm "UnpackILBM")
  70.  
  71. (set #install-parts-help
  72.     (cat
  73.         "    Here you select the different parts of Visage that you would like to "
  74.         "install. After that, you select the details of the installation (such as "
  75.         "where the different files should be installed). You may choose to install "
  76.         "the following items:\n"
  77.         "    Visage: The actual picture viewer.\n"
  78.         "    Visage.guide: The manual, in AmigaGuide® format. If you install it "
  79.         "using the installer, the text will reflow to fit the current window size. "
  80.         "If you do a manual installation, the text is fixed to 76 columns.\n"
  81.         "    Translations: If you install a translation, then Visage can operate in "
  82.         "the language(s) you select.\n"
  83.         "    JPEG codec: The Tower JPEG Codec Class, which Visage needs to be able "
  84.         "to view JPEG pictures (without using datatypes).\n"
  85.         "    GetModeID: A program that shows a screen mode requester, and prints "
  86.         "a decimal number that represents the selected screen mode.\n"
  87.         "    Kill: A program that can stop another program (sending \"break\" "
  88.         "signals). Similar to Break.\n"
  89.         "    MakeLink: A replacement for the MakeLink command that supports "
  90.         "soft links.\n"
  91.         "    UnpackILBM: A program that unpacks the picture data in an IFF ILBM "
  92.         "picture (the BODY chunk).\n"
  93.         "    For more information about these parts, please read the manual.\n"
  94.     )
  95. )
  96.  
  97. (set #where-visage "Where would you like to install Visage?\nA drawer will NOT be created!")
  98.  
  99. (set #where-visage-guide "Where would you like to install Visage.guide?")
  100.  
  101. (set #copy-guide-icon "Should I copy the icon for Visage.guide?")
  102.  
  103. (set #convert-guide "Converting Visage.guide...")
  104.  
  105. (set #which-language "Which languages should be installed?")
  106.  
  107. (set #which-language-help
  108.     (cat
  109.         "    The Amiga can be operated in many different languages. If you "
  110.         "want Visage to use the same language as your Amiga Workbench, "
  111.         "then a couple of catalog files must be copied to your harddisk "
  112.         "for each language supported.\n"
  113.         "    To reduce the amount of space consumed by the language files, "
  114.         "you can select to have only the files of specific languages "
  115.         "copied.\n"
  116.         "    Simply check the boxes of the languages you wish to have have "
  117.         "available on your system.\n"
  118.     )
  119. )
  120.  
  121. (set #where-language
  122.     (cat
  123.         "Where do you want to install the language files?\n\n"
  124.         "You can install them in either the same drawer as the program "
  125.         "itself (select \"Program\") or in the 'global' volume "
  126.         "\"Locale:\" (select \"Locale:\")."
  127.     )
  128. )
  129.  
  130. ; These two strings must match the strings used in above in #where-language.
  131. ; The words in question are the quoted ones after "select" in the parentheses.
  132. (set #lang-progdir "Program")
  133.  
  134. (set #lang-locale  "Locale:")
  135.  
  136. (set #where-language-help
  137.     (cat
  138.         "    If you install the language files in the same drawer as Visage "
  139.         "itself (or rather, in subdirectories within that drawer), then you "
  140.         "need to move these files as well, if you move Visage to some other "
  141.         "drawer. If you install the language files in \"Locale:\" you don't "
  142.         "need to worry about them if you move Visage. On the other hand, you "
  143.         "will not have all Visage-related files in the same drawer."
  144.     )
  145. )
  146.  
  147. (set #builtin-lang "(default)")
  148.  
  149. (set #where-tools "Where would you like to install the extra programs?")
  150.  
  151. (set #where-tools-help
  152.     (cat
  153.         "    Here you specify where the programs GetModeID, Kill, MakeLink and "
  154.         "UnpackILBM will be installed. Only the programs you selected will be "
  155.         "copied. Since these programs are Shell-only, the default location is "
  156.         "C:, where the systems Shell-only programs can be found.\n"
  157.         "    It is recommended that you install these programs somewhere in "
  158.         "your command search path.\n"
  159.     )
  160. )
  161.  
  162. (set #copy "Copying %s to %s...")
  163.  
  164. (set #program-update "How do you want to update the tooltypes in the icon?")
  165.  
  166. (set #update-none "No update")
  167.  
  168. (set #update-all "Add all")
  169.  
  170. (set #update-since "Add new since %s")
  171.  
  172. (set #program-update-help
  173.     (cat
  174.         "    Since this installation updates an older version of Visage, "
  175.         "the icon will not be copied over. This to maintain any changes "
  176.         "you may have made to it. However, new tooltypes may have been added. "
  177.         "Here you can decide if you want to:\n"
  178.         "    No update: Skip this part.\n"
  179.         "    Add all tooltypes: existing tooltypes will not be changed "
  180.         "Any tooltypes you may have removed will be added again. The new "
  181.         "tooltypes will be added as well.\n "
  182.         "    Add new since 39.x: Only add the new tooltypes since that version. "
  183.         "Any existing tooltype not be changed.\n"
  184.     )
  185. )
  186.  
  187. ; JPEG codec
  188.  
  189. (set #codec-message
  190.     (cat
  191.         "\n\n\nTower JPEG Codec Class\n\nCopyright © 1994 Christoph Feck, TowerSystems\n"
  192.         "All Rights Reserved.\n\n\n\n"
  193.         "Please refer to the documentation for details."
  194.     )
  195. )
  196.  
  197. (set #jpeg-tmp-prompt
  198.     "Select a directory for temporary files, not in RAM:"
  199. )
  200.  
  201. (set #temp-file
  202.     (cat
  203.         "    To decode certain JPEG images, the Codec needs a large amount of memory.\n"
  204.         "If the required storage is not available in main memory, the Codec will "
  205.         "create a temporary file on your harddisk. The volume on which this file is "
  206.         "created should have enough free space (about 4 meg).\n"
  207.         "    A temporary file is usually only required, if you want to quantize "
  208.         "JPEG images to 256 colors.\n\n"
  209.         @askdir-help
  210.     )
  211. )
  212.  
  213. (set #jpeg-startup-prompt
  214.     "An assignment has to be added to your user-startup."
  215. )
  216.  
  217. (set #make-assign
  218.     (cat
  219.         "    The logical assignment \"JPEGTMP:\" is used to refer to the temporary "
  220.         "directory.\n"
  221.         "    In order to make this assignment available on every reboot, an "
  222.         "\"Assign\" command has to be added to your \"user-startup\" file.\n\n"
  223.         @startup-help
  224.     )
  225. )
  226.  
  227. (set #jpeg-copy "Copying %s...")
  228.  
  229.  
  230. ;**************************************************************************
  231. ;
  232. ; German strings
  233. ;
  234.  
  235. (if (= @language "deutsch")
  236.     (
  237.         (set #default-lang #german-lang)
  238.     )
  239. )
  240.  
  241.  
  242. ;**************************************************************************
  243. ;
  244. ; Spanish strings
  245. ;
  246.  
  247. (if (= @language "español")
  248.     (
  249.         (set #default-lang #spanish-lang)
  250.     )
  251. )
  252.  
  253.  
  254. ;**************************************************************************
  255. ;
  256. ; French strings
  257. ;
  258.  
  259. (if (= @language "francais")
  260.     (
  261.         (set #default-lang #french-lang)
  262.     )
  263. )
  264.  
  265.  
  266. ;**************************************************************************
  267. ;
  268. ; Italian strings
  269. ;
  270.  
  271. (if (= @language "italiano")
  272.     (
  273.         (set #default-lang #italian-lang)
  274.     )
  275. )
  276.  
  277.  
  278. ;**************************************************************************
  279. ;
  280. ; Norwegian strings
  281. ;
  282.  
  283. (if (= @language "norsk")
  284.     (
  285.         (set #default-lang #norwegian-lang)
  286.     )
  287. )
  288.  
  289.  
  290. ;**************************************************************************
  291. ;
  292. ; Russian strings
  293. ;
  294.  
  295. (if (= @language "russian")
  296.     (
  297.         (set default-lang #russian-lang)
  298.  
  299.         (set #welcome
  300.             (cat
  301.                 "\n\n\nÃíàïí îíåaêíáañû á çìðñaêþñíï îïíâïaëëú Visage.\n\n"
  302.                     "Üña îïíâïaëëa îíæáíêçñ Áaë òðñaìíáçñû Visage ìa Áaøò Aëçâò.\n\n\n"
  303.                     "Visage © 1995  Magnus Holmgren."
  304.               )
  305.         )
  306.  
  307.         (set #install-parts
  308.             "Îíåaêòèðña, áúàäïçñä éíëîíìäìñú, éíñíïúä Áú åäêaäñä çìðñaêçïíáañû"
  309.         )
  310.  
  311.         (set #item-visage "Visage")
  312.  
  313.         (set #item-visage-guide "Visage.guide")
  314.  
  315.         (set #item-locale "Translations")
  316.  
  317.         (set #item-codec "JPEG codec")
  318.  
  319.         (set #item-getmodeid "GetModeID")
  320.  
  321.         (set #item-kill "Kill")
  322.  
  323.         (set #item-makelink "MakeLink")
  324.  
  325.         (set #item-unpackilbm "UnpackILBM")
  326.  
  327.         (set #install-parts-help
  328.             (cat
  329.                 "    Æãäðû Áú ëíåäñä áúàïañû ïaæêçöìúä éíëîíìäìñú Visage ãêþ áíæëíåìíè çô "
  330.                 "çìðñaêþõçç. Îíðêä üñíâí Áú ðëíåäñä òñíöìçñû ïaæêçöìúä ãäñaêç (ìaîïçëäï, "
  331.                 "éòãa éíìéïäñìí àòãòñ ðéíîçïíáaìú ïaæêçöìúä óaèêú). Áú ëíåäñä áúàïañû "
  332.                 "ðêäãòýùçä óaèêú:\n"
  333.                 "    Visage: ðíàðñáäììí îïíâïaëëa îïíðëíñïa éaïñçìíé.\n"
  334.                 "    Visage.guide: ãíéòëäìñaõçþ á âçã-óíïëañä. Äðêç Áú æaôíñçñä ä½ òðñaìíáçñû "
  335.                 "ð çðîíêûæíáaìçäë çìðñaêþñíïa, ñí ñäéðñ àòãäñ aáñíëañçöäðéç óíïëañçïíáañûðþ "
  336.                 "îíã ñäéòùòý øçïçìò íéìa. Á ðêòöaä "ïòöìíè" çìðñaêþõçç  øçïçìa àòãäñ 76 éíêíìíé.\n"
  337.                 "    Translations: îïç çìðñaêþõçç îäïäaíãíá Visage àòãäñ ïaàíñañû "
  338.                 "ìa áúàïaììíë Áaëç þæúéä (þæúéaô).\n"
  339.                 "    JPEG codec: éêaðð Tower JPEG Codec ñïäàòäñðþ, öñíàú Visage ëíâ îíéaæúáañû "
  340.                 "éaïñçìéç á óíïëañä JPEG (àäæ çðîíêûæíáaìçþ áðñïíäììúô ñçîíá ãaììúô).\n"
  341.                 "    GetModeID: îïíâïaëëa, îíéaæúáaýùaþ ïçéáäðñäï üéïaììúô ïäåçëíá ç îäöañaýùaþ "
  342.                 "ãäðþñçöìíä öçðêí, ðííñáäñðñáòýùää áúàïaììíëò ïäåçëò.\n"
  343.                 "    Kill: îïíâïaëëa, éíñíïaþ ëíåäñ îïäïáañû çðîíêìäìçä ãïòâçô îïíâïaëë, îíðêaá "
  344.                 "çë ðçâìaê íðñaìíáa (îïçëäïìí ñí åä, öñí ç  Break.)\n"
  345.                 "    MakeLink: æaëäìa ðñaìãaïñìíè éíëaìãú, îíããäïåçáaýùaþ \"ðêaàúä\" "
  346.                 "ðáþæç.\n"
  347.                 "    UnpackILBM: ïaðîaéíáúáaäñ \"ñäêí\" IFF ILBM óaèêíá "
  348.                 "(BODY chunk).\n"
  349.                 "    Àíêää îíãïíàìòý çìóíïëaõçý ðë. á ãíéòëäìñaõçç é îïíâïaëëä.\n"
  350.             )
  351.         )
  352.  
  353.         (set #where-visage "Òéaåçñä ëaïøïòñ ãêþ çìðñaêþõçç Visage")
  354.  
  355.         (set #where-visage-guide "Éòãa éíîçïíáañû óaèê ãíéòëäìñaõçç Visage.guide?")
  356.  
  357.         (set #copy-guide-icon "Ìaãí êç éíîçïíáañû çéíìéò ãêþ Visage.guide?")
  358.  
  359.         (set #convert-guide "Îïäíàïaæòý Visage.guide...")
  360.  
  361.         (set #which-language "Éaéçä þæúéç ìaãí çìðñaêçïíáañû?")
  362.  
  363.         (set #which-language-help
  364.             (cat
  365.                 "    Aëçâa ëíåäñ ïaàíñañû ìa ëìíâçô þæúéaô. Äðêç Áú ôíñçñä, öñíàú "
  366.                 "Visage çðîíêûæíáaê ðñaìãaïñìúè þæúé Áaøäè ðçðñäëú, ñí ìäíàôíãçëí "
  367.                 "ðéíîçïíáañû ðííñáäñðñáòýùçä éañaêíâç ìa Áaø å½ðñéçè ãçðé - îííãìíëò "
  368.                 "ãêþ éaåãíâí çæ çðîíêûæòäëúô þæúéíá.\n"
  369.                 "    Öñíàú òëäìûøçñû íàÿ½ë, æaìçëaäëúè þæúéíáúëç éañaêíâaëç, "
  370.                 "áú ëíåäñä ìä áúàçïañû éañaêíâç ãêþ ñäô þæúéíá, éíñíïúä Áaë á îïçìõçîä "
  371.                 "ìä îíñïäàòýñðþ.\n"
  372.                 "    Îïíðñí îíðñaáûñä âaêíöéç ìaîïíñçá ñïäàòäëúô Áaë þæúéíá ç áð½.\n "
  373.             )
  374.         )
  375.  
  376.         (set #where-tools "Éòãa çìðñaêçïíáañû ãíîíêìçñäêûìúä îïíâïaëëú?")
  377.  
  378.         (set #where-tools-help
  379.             (cat
  380.                 "    Òéaåçñä ëaïøïòñ éíîçïíáaìçþ îïíâïaëë GetModeID, Kill ç UnpackILBM. "
  381.                 "Àòãòñ ðéíîçïíáaìú ñíêûéí áúàïaììúä Áaëç îïíâïaëëú. Îíðéíêûéò æaîòðéañû "
  382.                 "áðä üñç îïíâïaëëú áíæëíåìí ñíêûéí çæ Shell, ñí îïäãîíêaâaäñðþ ðéíîçïíáañû "
  383.                 "çô á C:, âãä, éaé îïaáçêí, ìaôíãþñðþ îíãíàìúä îïíâïaëëú.\n"
  384.                 "    Á êýàíë ðêòöaä åäêañäêûìí, öñíàú üñç îïíâïaëëú ìaôíãçêçðû îí íãìíëò "
  385.                 "çæ ãíðñòîìúô ëaïøïòñíá Áaøäè ðçðñäëú.\n"
  386.             )
  387.         )
  388.  
  389.         (set #copy "Éíîçïòý %s á %s...")
  390.  
  391.         (set #program-update "Éaé Áú ôíñçñä íàìíáçñû çìðñïòëäìñaïçè çéíìéç?")
  392.  
  393.         (set #update-none "Ìä ôíöò")
  394.  
  395.         (set #update-all "Ãíàaáçñû áð½")
  396.  
  397.         (set #update-since "Ãíàaáçñû, ìaöçìaþ ð %s")
  398.  
  399.         (set #program-update-help
  400.             (cat
  401.                 "    Îíðéíêûéò ëú ðäèöað íàìíáêþäë àíêää ðñaïòý áäïðçý Visage, ñí "
  402.                 "ðñaïaþ çéíìéa ìä îäïäîçðúáaäñðþ æaìíáí. Üñí ðãäêaìí ãêþ ñíâí, öñíàú "
  403.                 "ðíôïaìçñû ñä çæëäìäìçþ, éíñíïúä Áú ëíâêç îïíçæáäðñç ïaìää. Íãìaéí, "
  404.                 "ìçöñí ìä ëäøaäñ ìaë ãíàaáçñû ìíáúä îaïaëäñïú. Æãäðû áú ëíåäñä "
  405.                 "ïäøçñû, ôíñçñä êç Áú:\n"
  406.                 "    Ìçöäâí ìä íàìíáêþñû.\n"
  407.                 "    Ãíàaáçñû ìíáúä îaïaëäñïú é òåä ðòùäðñáòýùçë. "
  408.                 "Êýàúä áíæëíåìí òãaê½ììúä Áaëç ïaìää îaïaëäñïú àòãòñ ðìíáa ãíàaáêäìú, "
  409.                 "ïaáìí éaé ç ìíáúä îaïaëäñïú.\n "
  410.                 "    Ãíàaáçñû îíðêä 39.x: ãíàaáçñû ìíáúä îaïaëäñïú ñíêûéí îíðêä üñíè áäïðçç ÃÍÐ. "
  411.                 "Ðòùäðñáòýùçä îaïaëäñïú íðñaìòñðþ ìäçæëäììúëç.\n"
  412.             )
  413.         )
  414.  
  415.         ; JPEG codec
  416.  
  417.         (set #codec-message
  418.             (cat
  419.                 "\n\n\nTower JPEG Codec Class\n\nCopyright © 1994 Christoph Feck, TowerSystems\n"
  420.                 "Áðä îïaáa æaùçùäìú.\n\n\n\n"
  421.                 "Îíãïíàìíðñç ðë. á ãíéòëäìñaõçç."
  422.             )
  423.         )
  424.  
  425.         (set #jpeg-tmp-prompt
  426.             "Áúàäïçñä éañaêíâ ãêþ áïäëäììúô óaèêíá (ñíêûéí ìä á RAM:)"
  427.         )
  428.  
  429.         (set #temp-file
  430.             (cat
  431.                 "    Ãêþ ãäéíãçïíáaìçþ ìäéíñíïúô JPEG-éaïñçìíé, éêaðð Codec ñïäàòäñ "
  432.                 "æìaöçñäêûìúô íàÿ½ëíá îaëþñç.\n"
  433.                 "Äðêç íîäïañçáìíè îaëþñç ìäãíðñañíöìí, ñí Codec ðíæãaðñ áïäëäììúè óaèê ìa "
  434.                 "Áaøäë å½ðñéíë ãçðéä. Îaïñçõçþ, ìa éíñíïíè üñíñ óaèê àòãäñ ðíæãaì, ãíêåìa "
  435.                 "çëäñû ðáíàíãìúè íàÿ½ë ìä ëäìää 4-ô ëäâaàaèñ.\n"
  436.                 "    Á íàùäë ðêòöaä, üñíñ óaèê ñïäàòäñðþ ñíêûéí ãêþ îïçáäãäìçþ JPEG-éaïñçìéç "
  437.                 "é 256-ñç õáäñaë.\n\n"
  438.                 @askdir-help
  439.             )
  440.         )
  441.  
  442.         (set #jpeg-startup-prompt
  443.             "Ìaãí éíä-öñí ãíàaáçñû á óaèê S:user-startup."
  444.         )
  445.  
  446.         (set #make-assign
  447.             (cat
  448.                 "    Êíâçöäðéíä çëþ \"JPEGTMP:\" çðîíêûæòäñðþ ãêþ ððúêéç ìa áïäëäììúè "
  449.                 "éañaêíâ ãêþ JPEG-éaïñçìíé.\n"
  450.                 "    Öñíàú üñí çëþ àúêí ãíðñòîìí îíðêä éaåãíâí (ïä)ðñaïña éíëîûýñäïa, "
  451.                 "éíëaìãa \"Assign\" ãíêåìa àúñû ãíàaáêäìa á óaèê \"user-startup\".\n\n"
  452.                 @startup-help
  453.             )
  454.         )
  455.  
  456.         (set #jpeg-copy "Éíîçïòý %s...")
  457.     )
  458. )
  459.  
  460.  
  461. ;**************************************************************************
  462. ;
  463. ; Finnish strings
  464. ;
  465.  
  466. ; .ct
  467. (if (= @language "suomi")
  468.     (
  469.         (set #default-lang #finnish-lang)
  470.     )
  471. )
  472.  
  473.  
  474. ;**************************************************************************
  475. ;
  476. ; Swedish strings
  477. ;
  478.  
  479. (if (= @language "svenska")
  480.     (
  481.         (set #default-lang #swedish-lang)
  482.  
  483.         (set #bad-kick
  484.             "Du måste ha AmigaOS version 3.0 eller högre för att kunna använda Visage."
  485.         )
  486.  
  487.         (set #welcome
  488.             (cat
  489.                 "\n\n\nVälkommen till Installeraren.\n\n"
  490.                 "Det här programmet låter dig installera Visage i din Amiga.\n\n\n"
  491.                 "Visage © 1995  Magnus Holmgren."
  492.             )
  493.         )
  494.  
  495.         (set #install-parts "Välj de delar du vill installera:")
  496.  
  497.         (set #item-visage "Visage")
  498.  
  499.         (set #item-visage-guide "Visage.guide")
  500.  
  501.         (set #item-locale "Översättningar")
  502.  
  503.         (set #item-codec "JPEG codec")
  504.  
  505.         (set #install-parts-help
  506.             (cat
  507.                 "  Här väljer du de olika delar av Visage som du vill installera. "
  508.                 "Efter det anger du detaljer om installationen (såsom var de olika "
  509.                 "filerna ska installeras). Du kan välja mellan följande delar:\n"
  510.                 "  Visage: Själva bildvisaren.\n"
  511.                 "  Visage.guide: Manualen, i AmigaGuide®-format. Om du installerar "
  512.                 "den med Installeraren, så kommer texten att formateras om efter "
  513.                 "fönstrets aktuella storlek. Om du installerar den manuellt, så "
  514.                 "är texten fixerad vid 76 kolumner.\n"
  515.                 "  Översättningar: Om du installerar en översättning, så kan "
  516.                 "Visage använda det språket.\n"
  517.                 "  JPEG codec: \"The Tower JPEG Codec Class\". Visage behöver "
  518.                 "den här för att kunna visa JPEG-bilder.\n"
  519.                 "  GetModeID: Ett program som visar en skärmlägesväljare, och "
  520.                 "sedan skriver ut ett decimalt tal som motsvarar det valda "
  521.                 "skärmläget.\n"
  522.                 "  Kill: Ett program som kan stoppa andra program (genom att "
  523.                 "skicka \"break\"-signaler). Liknar Break.\n"
  524.                 "    MakeLink: En erättning för MakeLink, som stödjer så kallade "
  525.                 "mjuka länkar.\n"
  526.                 "  UnpackILBM: Ett program som packar upp bilddatan i en IFF ILBM "
  527.                 "bild (BODY \"chunken\").\n"
  528.                 "    För mer information om de här sakerna, se manualen.\n"
  529.             )
  530.         )
  531.  
  532.         (set #where-visage "Var vill du installera Visage?\nEn låda kommer INTE att skapas!")
  533.  
  534.         (set #where-visage-guide "Var vill du installera Visage.guide?")
  535.  
  536.         (set #copy-guide-icon "Ska jag kopiera ikonen för Visage.guide?")
  537.  
  538.         (set #convert-guide "Konverterar Visage.guide...")
  539.  
  540.         (set #which-language "Vilka språk ska installeras?")
  541.  
  542.         (set #which-language-help
  543.             (cat
  544.                 "  Amigan kan arbeta med flera olika språk. Om du vill att "
  545.                 "Visage ska använda samma språk som Amiga Workbench så "
  546.                 "måste en så kallad katalogfil kopieras till din systemdisk "
  547.                 "för varje språk.\n"
  548.                 "  För att minimera diskutrymmet för språkfiler kan du välja "
  549.                 "att bara installera filerna för vissa språk.\n"
  550.                 "  Markera bara rutorna för de språk du önskar installera i "
  551.                 "din dator.\n"
  552.             )
  553.         )
  554.  
  555.         (set #where-language
  556.             (cat
  557.                 "Var vill du installera katalogfilerna?\n\n"
  558.                 "Du kan antingen installera dem i samma låda som programmet "
  559.                 "(välj \"Program\"), eller i den 'globala' enheten "
  560.                 "\"Locale:\" (välj \"Locale:\")."
  561.             )
  562.         )
  563.  
  564.         (set #lang-progdir "Program")
  565.  
  566.         (set #lang-locale  "Locale:")
  567.  
  568.         (set #where-language-help
  569.             (cat
  570.                 "  Om du installerar katalogfilerna i samma låda som "
  571.                 "Visage (eller snarare i underlådor i den lådan), så "
  572.                 "kommer du att behöva flytta de här filerna, om du "
  573.                 "flyttar Visage till någon annan läda. Om du installerar "
  574.                 "katalogfilerna i \"Locale:\" så behöver du inte bekymra "
  575.                 "dig om dem ifall du flyttar Visage. Å andra sidan, alla "
  576.                 "Visage-relaterade filler kommer inte att finnas i samma "
  577.                 "låda."
  578.             )
  579.         )
  580.  
  581.         (set #builtin-lang "(inbyggt)")
  582.  
  583.         (set #where-tools "Var vill du installera de extra programmen?")
  584.  
  585.         (set #where-tools-help
  586.             (cat
  587.                 "  Här anger du var programmen GetModeID, Kill, MakeLink och "
  588.                 "UnpackILBM ska installeras någonstans. Bara de program som "
  589.                 "du valde tidigare kommer att kopieras. Eftersom de här "
  590.                 "programmen bara kan användas från ett skal, så är den "
  591.                 "förvalda destinationen C:, eftersom systemets \"skalprogram\" "
  592.                 "finns där. Det rekommenderas att du installerar dessa "
  593.                 "program någonstans i sökvägen för kommandon.\n"
  594.             )
  595.         )
  596.  
  597.         (set #copy "Kopierar %s till %s...")
  598.  
  599.         (set #program-update "Hur vill du uppdatera verktygstyperna i ikonen?")
  600.  
  601.         (set #update-none "Uppdatera inte")
  602.  
  603.         (set #update-all "Lägg till alla")
  604.  
  605.         (set #update-since "Lägg till nya sedan %s")
  606.  
  607.         (set #program-update-help
  608.             (cat
  609.                 "  Eftersom den här installationen uppdaterar en gammal version "
  610.                 "av Visage, så kommer inte ikonen att kopieras. Detta för att "
  611.                 "bibehålla eventuella ändringar som du kan ha gjort. Men nya "
  612.                 "verktygstyper kan ha tillkommit. Här kan du avgöra vad du "
  613.                 "vill göra:\n"
  614.                 "  Uppdatera inte: Hoppa över detta.\n"
  615.                 "  Lägg till alla: Lägg till alla verktygstyper. Existerande "
  616.                 "verktygstyper kommer inte att ändras.\n"
  617.                 "  Lägg till nya sedan 39.x: Lägg bara till de nya "
  618.                 "verktytstyperna. Eventuella existerande verktygstyper "
  619.                 "kommer inte att ändras.\n"
  620.             )
  621.         )
  622.  
  623.         ; JPEG codec
  624.  
  625.         (set #temp-file
  626.             (cat
  627.                 "  För att packa upp vissa JPEG-bilder, så behöver Codec:en "
  628.                 "mycket minne.\n"
  629.                 "  Om det inte finns nog med plats i huvudminnet, så kommer "
  630.                 "Codec:en att skapa en temporärfil på din hårddisk. Volymen "
  631.                 "på vilken den här filen skapas bör ha tillräcklikt med fritt "
  632.                 "utrymme (ungefär 4 MB).\n"
  633.                 "  En temporärfil behövs normalt sett bara om du vill "
  634.                 "kvantisera JPEG-bilder till 256 färger.\n\n"
  635.                 @askdir-help
  636.             )
  637.         )
  638.  
  639.         (set #make-assign
  640.             (cat
  641.                 "  Den logiska tilldelningen \"JPEGTMP:\" används för att "
  642.                 "referera till lådan för temporära filer.\n"
  643.                 "  För att göra den här tilldelningen tillgänglig vid varje "
  644.                 "systemstart så behöver ett \"Assign\"-kommando läggas till "
  645.                 "i din \"user-startup\"-fil.\n\n"
  646.                 @startup-help
  647.             )
  648.         )
  649.  
  650.         (set #codec-message
  651.             (cat
  652.                 "\n\n\nTower JPEG Codec Class\n\n"
  653.                 "Upphovsrätt © 1994 Christoph Feck, TowerSystems\n"
  654.                 "Alla rättigheter reserverade.\n\n\n\n"
  655.                 "Var god läs dokumentationen för detaljer."
  656.             )
  657.         )
  658.  
  659.         (set #jpeg-tmp-prompt
  660.             "Välj en låda för temporära filer, inte i RAM:"
  661.         )
  662.  
  663.         (set #jpeg-startup-prompt
  664.             "En tilldelning måste läggas till i din user-startup."
  665.         )
  666.  
  667.         (set #jpeg-copy "Kopierar %s...")
  668.     )
  669. )
  670.  
  671. ;**************************************************************************
  672. ;
  673. ; The actual installaion script
  674. ;
  675.  
  676. ; Check Kickstart version. Exit if not at least 3.0
  677. (if (< (/ (getversion) 65536) 39)
  678.         (abort #bad-kick)
  679. )
  680.  
  681. ; Since files probably are scatter installed, don't mention any specific location.
  682. (set @default-dest "")
  683.  
  684. ; Version of old program. This means no old program.
  685. (set #visagever 0)
  686. (set #visagerev 0)
  687.  
  688. ; Request proportinal fonts, if supported. This string is
  689. ; prepended to the first askoptions choice.
  690. (if (>= @installer-version 2752518)     ; 42 * 65536 + 6
  691.     ; At least version 42.6
  692.     (set #propfont "p")
  693.     ; Pre V42
  694.     (set #propfont "")
  695. )
  696.  
  697. ; Greetings Mr. Falken...
  698. (message #welcome)
  699.  
  700. (welcome)
  701.  
  702. ; Ask the user what to install
  703. (set #install-files
  704.     (askoptions
  705.         (prompt    #install-parts)
  706.         (help    #install-parts-help "\n" @askoptions-help)
  707.         (choices
  708.             (cat #propfont #item-visage)
  709.             #item-visage-guide
  710.             #item-locale
  711.             #item-codec
  712.             #item-getmodeid
  713.             #item-kill
  714.             #item-makelink
  715.             #item-unpackilbm
  716.         )
  717.         (default (if (= @user-level 2) 255 15))
  718.     )
  719. )
  720.  
  721. ; Ask the user for the location of all parts
  722.  
  723. ; Location for Visage
  724. (if (BITAND #install-files 1)
  725.     (
  726.         (set #visage-dest
  727.             (askdir
  728.                 (prompt  #where-visage)
  729.                 (help    @askdir-help)
  730.                 (default "Sys:Utilities")
  731.             )
  732.         )
  733.  
  734.         ; Get the version of previously installed Visage
  735.         (if (= (exists (tackon #visage-dest "Visage")) 1)
  736.             (
  737.                 (set #vernum (getversion (tackon #visage-dest "Visage")))
  738.                 (set #visagever (/ #vernum 65536))
  739.                 (set #visagerev (- #vernum (* #visagever 65536)))
  740.  
  741.                 ; Just in case the above failed...
  742.                 (if (<= #visagever 38)
  743.                     (
  744.                         (set #visagever 39)
  745.                         (set #visagerev 0)
  746.                     )
  747.                 )
  748.             )
  749.         )
  750.  
  751.         (set #update-action 0)
  752.  
  753.         (if (AND #visagever (= (exists (tackon #visage-dest "Visage.info")) 1))
  754.             (
  755.                 (set #defaction 0)
  756.  
  757.                 (if (= #visagerev 0)
  758.                     (set #defaction 2)
  759.                 )
  760.  
  761.                 (if (= #visagerev 1)
  762.                     (set #defaction 3)
  763.                 )
  764.  
  765.                 (if (= #visagerev 2)
  766.                     (set #defaction 4)
  767.                 )
  768.  
  769.                 (if (= #visagerev 5)
  770.                     (set #defaction 5)
  771.                 )
  772.  
  773.                 (set #update-action
  774.                     (askchoice
  775.                         (prompt        #program-update)
  776.                         (choices    (cat #propfont #update-none)
  777.                                 #update-all
  778.                                 (#update-since "39.0")
  779.                                 (#update-since "39.1")
  780.                                 (#update-since "39.2")
  781.                                 (#update-since "39.5")
  782.                         )
  783.                         (default    #defaction)
  784.                         (help        #program-update-help "\n" @askchoice-help)
  785.                     )
  786.                 )
  787.  
  788.                 (set #tt39-1 "DITHER COMPACT TIME")
  789.                 (set #tt39-2 "COMMAND CYCLE NOCLICK NORMALNAMES RTG SORT TEST VCENTER")
  790.                 (set #tt39-3 "INFO SHOWINFO")
  791.                 (set #tt39-6 "NOICON NOFOREIGN")
  792.  
  793.                 (set #icon-dest (tackon #visage-dest "Visage"))
  794.                 (set #tooltype-pattern
  795.                     (select #update-action
  796.                         ""
  797.                         "#?"
  798.                         ("%s %s %s %s" #tt39-6 #tt39-3 #tt39-2 #tt39-1)
  799.                         ("%s %s %s"    #tt39-6 #tt39-3 #tt39-2)
  800.                         ("%s %s"       #tt39-6 #tt39-3)
  801.                         ("%s"          #tt39-6)
  802.                     )
  803.                 )
  804.             )
  805.         )
  806.     )
  807. )
  808.  
  809. ; Location for Visage.guide
  810. (if (BITAND #install-files 2)
  811.     (
  812.         (set #guide-dest visage-dest)
  813.  
  814.         (if (exists "Help:")
  815.             (set #guide-dest "Help:")
  816.         )
  817.  
  818.         (set #guide-dest
  819.             (askdir
  820.                 (prompt  #where-visage-guide)
  821.                 (help    @askdir-help)
  822.                 (default #guide-dest)
  823.             )
  824.         )
  825.  
  826.         (set #dest-guide-name (tackon #guide-dest "Visage.guide.info"))
  827.  
  828.         (set #guide-icon
  829.             (if (AND (= @user-level 2 ) (= (exists #dest-guide-name) 0))
  830.                 (askbool
  831.                     (prompt #copy-guide-icon)
  832.                     (help    " ")
  833.                 )
  834.                 1    ; Default is to copy the icon
  835.             )
  836.         )
  837.     )
  838. )
  839.  
  840. (set #languages 0)
  841.  
  842. ; .ct
  843. ; Which languages that should be installed.
  844. (if (BITAND #install-files 4)
  845.     (set #lang
  846.         (askoptions
  847.             (prompt    #which-language)
  848.             (help    #which-language-help "\n" @askoptions-help)
  849.             (choices
  850.                 (cat #propfont "Deutsch")
  851.                 (cat "English  " #builtin-lang)
  852.                 "Español"
  853.                 "Français"
  854.                 "Italiano"
  855.                 "Norsk"
  856.                 "Suomi"
  857.                 "Svenska"
  858.             )
  859.             (default #default-lang)
  860.         )
  861.     )
  862. )
  863.  
  864. ; Default to install catalog files in the same drawer as Visage.
  865. (set #catalog-dest (tackon #visage-dest "Catalogs"))
  866.  
  867. ; Where should the catalogs be installed? Only do this if we have
  868. ; an expert user, and any non-english language was selected.
  869. (if (AND (BITAND #install-files 1) (<> #lang 0) (<> #lang #english-lang) (= @user-level 2))
  870.     (
  871.         (set #choice
  872.             (askbool
  873.                 (prompt  #where-language)
  874.                 (help    #where-language-help "\n" @askbool-help)
  875.                 (default 1)
  876.                 (choices #lang-progdir #lang-locale)
  877.             )
  878.         )
  879.  
  880.         (if (NOT #choice)
  881.             (set #catalog-dest "Locale:Catalogs")
  882.         )
  883.     )
  884. )
  885.  
  886. ; Ask for location for extra tools
  887. (if (BITAND #install-files 240)    ; 16 + 32 + 64 + 128
  888.     (set #tool-dest
  889.         (askdir
  890.             (prompt    #where-tools)
  891.             (help    #where-tools-help "\n" @askdir-help)
  892.             (default "C:")
  893.         )
  894.     )
  895. )
  896.  
  897. ; And now do the actual installation
  898.  
  899. (complete 0)
  900.  
  901. (if (BITAND #install-files 1)
  902.     (
  903.         (copylib
  904.             (prompt    (#copy "Visage" visage-dest))
  905.             (source    "Visage")
  906.             (dest    #visage-dest)
  907.         )
  908.  
  909.         (if (= (exists (tackon #visage-dest "Visage.info")) 0)
  910.             (copyfiles
  911.                 (source    "Visage.info")
  912.                 (dest    #visage-dest)
  913.             )
  914.             (if (> #update-action 0)
  915.                 (run ("C/UpdateTT Visage %s %s" #icon-dest #tooltype-pattern))
  916.             )
  917.         )
  918.     )
  919. )
  920.  
  921. (complete 20)
  922.  
  923. (if (BITAND #install-files 2)
  924.     (
  925.         (working #convert-guide)
  926.  
  927.         (run "C/FixAG Visage.guide T:Visage.Guide")
  928.  
  929.         (copylib
  930.             (prompt (#copy "Visage.guide" guide-dest))
  931.             (source "T:Visage.guide")
  932.             (dest   #guide-dest)
  933.         )
  934.  
  935.         (delete "T:Visage.guide" (safe))
  936.  
  937.         (if #guide-icon
  938.             (copyfiles
  939.                 (source "Visage.guide.info")
  940.                 (dest   #guide-dest)
  941.             )
  942.         )
  943.     )
  944. )
  945.  
  946. (complete 40)
  947.  
  948. ; .ct
  949. (if (BITAND #install-files 4)
  950.     (
  951.         (if (= (exists #catalog-dest) 0)
  952.             (makedir #catalog-dest)
  953.         )
  954.  
  955.         (set #n 0)
  956.  
  957.         (while
  958.             (set #language
  959.                 (select #n
  960.                     "Deutsch"
  961.                     "English"
  962.                     "Español"
  963.                     "Français"
  964.                     "Italiano"
  965.                     "Norsk"
  966.                     "Suomi"
  967.                     "Svenska"
  968.                     ""
  969.                 )
  970.             )
  971.  
  972.             (
  973.                 (if (AND (IN #lang #n) (<> #english-lang-num #n))
  974.                     (
  975.                         (set #catalog
  976.                             (tackon "Catalogs"
  977.                                 (tackon #language "visage.catalog")
  978.                             )
  979.                         )
  980.  
  981.                         (set #destination (tackon #catalog-dest #language))
  982.  
  983.                         (copylib
  984.                             (prompt (#copy #catalog #destination))
  985.                             (source #catalog)
  986.                             (dest   #destination)
  987.                         )
  988.                     )
  989.                 )
  990.  
  991.                 (set #n (+ #n 1))
  992.             )
  993.         )
  994.     )
  995. )
  996.  
  997. (complete 45)
  998.  
  999. (if (BITAND #install-files 16)
  1000.     (copylib
  1001.         (prompt (#copy "GetModeID" #tool-dest))
  1002.         (source "C/GetModeID")
  1003.         (dest   #tool-dest)
  1004.     )
  1005. )
  1006.  
  1007. (if (BITAND #install-files 32)
  1008.     (copylib
  1009.         (prompt (#copy "Kill" #tool-dest))
  1010.         (source "C/Kill")
  1011.         (dest   #tool-dest)
  1012.     )
  1013. )
  1014.  
  1015. (if (BITAND #install-files 64)
  1016.     (copylib
  1017.         (prompt (#copy "MakeLink" #tool-dest))
  1018.         (source "C/MakeLink")
  1019.         (dest   #tool-dest)
  1020.     )
  1021. )
  1022.  
  1023. (if (BITAND #install-files 128)
  1024.     (copylib
  1025.         (prompt (#copy "UnpackILBM" #tool-dest))
  1026.         (source "C/UnpackILBM")
  1027.         (dest   #tool-dest)
  1028.     )
  1029. )
  1030.  
  1031. (complete 50)
  1032.  
  1033. ; JPEG codec installation
  1034.  
  1035. (if (BITAND #install-files 8)
  1036.     (
  1037.         ;****************************************************************************
  1038.         ;
  1039.         ; Setup
  1040.         ;
  1041.  
  1042.         (set #libs-dest "LIBS:")
  1043.         (set #class-dest "SYS:Classes")
  1044.  
  1045.         (if (not (exists #class-dest))
  1046.             (set #class-dest "LIBS:")
  1047.         )
  1048.  
  1049.         ;****************************************************************************
  1050.         ;
  1051.         ; Welcome
  1052.         ;
  1053.  
  1054.         (message #codec-message)
  1055.  
  1056.         ;****************************************************************************
  1057.         ;
  1058.         ; JPEGTMP: assignment
  1059.         ;
  1060.  
  1061.         (set #has-temp 0)
  1062.  
  1063.         (if (exists "JPEGTMP:" (noreq))
  1064.             (
  1065.                 (set #has-temp 1)
  1066.                 (if (= "RAM" (getdevice "JPEGTMP:"))
  1067.                     (set #has-temp 0)
  1068.                 )
  1069.             )
  1070.         )
  1071.  
  1072.         (if (= #has-temp 0)
  1073.             (
  1074.                 (set #jpeg-tmp (askdir (help #temp-file) (prompt #jpeg-tmp-prompt) (default "SYS:")))
  1075.                 (startup "JPEG Codec"
  1076.                     (help #make-assign)
  1077.                     (prompt #jpeg-startup-prompt)
  1078.                     (command "Assign JPEGTMP: \"" #jpeg-tmp "\"")
  1079.                 )
  1080.                 (makeassign "JPEGTMP" #jpeg-tmp)
  1081.             )
  1082.         )
  1083.  
  1084.         (complete 60)
  1085.  
  1086.         ;****************************************************************************
  1087.         ;
  1088.         ; Install libraries and classes
  1089.         ;
  1090.  
  1091.         (copylib
  1092.             (help @copylib-help)
  1093.             (prompt (#jpeg-copy "tower.library"))
  1094.             (source "Libs/tower.library")
  1095.             (dest #libs-dest)
  1096.             (confirm)
  1097.         )
  1098.  
  1099.         (complete 70)
  1100.  
  1101.         (copylib
  1102.             (help @copylib-help)
  1103.             (prompt (#jpeg-copy "codec.class"))
  1104.             (source "Classes/codec.class")
  1105.             (dest #class-dest)
  1106.             (confirm)
  1107.         )
  1108.  
  1109.         (complete 80)
  1110.  
  1111.         (copylib
  1112.             (help @copylib-help)
  1113.             (prompt (#jpeg-copy "picture.codec"))
  1114.             (source "Classes/Codecs/picture.codec")
  1115.             (dest (tackon #class-dest "Codecs"))
  1116.             (confirm)
  1117.         )
  1118.  
  1119.         (complete 90)
  1120.  
  1121.         (copylib
  1122.             (help @copylib-help)
  1123.             (prompt (#jpeg-copy "jpeg.codec"))
  1124.             (source "Classes/Codecs/jpeg.codec")
  1125.             (dest (tackon #class-dest "Codecs"))
  1126.             (confirm)
  1127.         )
  1128.  
  1129.         ;****************************************************************************
  1130.         ;
  1131.         ; Exit
  1132.         ;
  1133.  
  1134.         (run "Avail >Nil: FLUSH")
  1135.     )
  1136. )
  1137.  
  1138. (complete 100)
  1139.  
  1140. (exit)
  1141.